10 IFA=1THENGOTO40
20 IFA=2THENGOTO45
30 A=1:LOAD"ZUSATZ",8,1
40 A=2:LOAD"MUSIC1",8,1
45 GOSUB3000:REM"[141][145]45 CLR:RESTORE:WAIT178,21
50 [151]33000,4:[158]828,1,158
60 [151]53280,0:[151]53281,0:[153]"LOAD"
70 [158]828,1:[153]"LOAD               (null)TUFE 3 WAIT"
80 [153]"----------------------------------------"
90 [153]"SYS         [ F1 ] PEEKONUSSPIEL
100 PRINT"[150]         [[160]F3 ] [200]IGHSCORES"
110 PRINT"         [[160]F5 ] [218]UR [211]TUFE 4"
120 CLR:PRINT"[156]         [[160]F7 ] [193]BBRUCH/[197]NDMENUE"
130 WAIT198,1:GETA$
140 IFA$=CHR$(133)THENGOTO280
150 IFA$=CHR$(134)THENGOTO1110
160 IFA$=CHR$(135)THENGOTO190
170 IFA$=CHR$(136)THENGOTO220
180 GOTO130
190 PRINT"[147][144]LOAD";CHR$(34);"ZWISCHENSTUFE";CHR$(34);",8":SYS828,0
200 PRINT"RUN":POKE631,19:POKE632,13:POKE633,13:POKE198,3
210 STOP
220 PRINT"[147][159][215]ILLST [196]U WIRKLICH INS [197]NDMENUE ?"
230 PRINT" ( [202] / [206] )"
240 GETA$:IFA$<>"J"ANDA$<>"N"THENGOTO240
250 IFA$="N"THENGOTO60
255 GOSUB4000
260 PRINT"[147][144]LOAD";CHR$(34);"ENDMENUE";CHR$(34);",8":SYS828,0
270 PRINT"RUN":POKE631,19:POKE632,13:POKE633,13:POKE198,3:STOP
280 PU=0:P=0:PRINT"[147][158][196]U BEWEGST EIN [196]OPPELKREUZ (#)"
290 PRINT"[150]UEBER DEN [194]ILDSCHIRM, WELCHER SICH"
300 PRINT"LANGSAM MIT [203]AESTCHEN ( [146]) FUELLT."
310 PRINT"[150][196]EINE [193]UFGABE IST ES NUN, SOLANGE WIE"
320 PRINT"[158]MOEGLICH UEBER DEN [194]ILDSCHIRM ZU FAHREN,"
330 PRINT"[150]WIE ES NUR GEHT...KLEINES [208]ROBLEM:"
340 PRINT"ANHALTEN KANNST [196]U NICHT, [196]U BIST ALSO"
350 PRINT"[150]STAENDIG IN [194]EWEGUNG."
360 PRINT"[158][156][196]RUECKE [198]EUERKNOPF"
370 IFPEEK(56320)<>111THENGOTO370
380 PRINT"[147]"
390 IFPEEK(56320)<>127THENGOTO390
400 PRINT"[147][213]M DIE GANZE [193]NGELEGENHEIT NOCH EIN"
410 PRINT"[154]WENIG ZU ERSCHWEREN, DARFST [196]U [196]ICH"
420 PRINT"[159]NICHT IN DIE ENTGEGENGESETZTE [210]ICHTUNG"
430 PRINT"BEWEGEN, IN DIE [196]U GERADE FAEHRST."
440 PRINT"[155][193]LS[160][194]EISPIEL: BEWEGST [196]U [196]ICH GERADE"
450 PRINT"[152]NACH LINKS, DARFST [196]U JETZT NICHT ALS"
460 PRINT"[151]NAECHSTES NACH RECHTS."
470 PRINT"[202]E LAENGER [196]U UEBERLEBST, DESTO HOEHER"
480 PRINT"[153]IST NATUERLICH AUCH DEINE [208]UNKTZAHL."
490 PRINT"[193]UF [203]NOPFDRUCK GEHT'S LOS !"
500 IFPEEK(56320)<>111THENGOTO500
510 PRINT"[158][147]":IFPEEK(56320)<>127THENGOTO510
520 FORN=0TO24:POKE1024+N*40,160:POKE2023-N*40,160:NEXT
530 FORN=1TO20:POKE1043+N,160:POKE1984+N,160:POKE1044-N,160:POKE2023-N,160:NEXT
540 A=1507:B=119
550 FORN=1TO4:POKEA,32:FORM=1TO200:NEXT:POKEA,35:FORM=1TO200:NEXTM,N
560 REM
570 IFB=119THENGOSUB620
580 IFB=125THENGOSUB640
590 IFB=123THENGOSUB660
600 IFB=126THENGOSUB680
610 GOTO700
620 A=A+1:IFPEEK(A)<>32ORD=3THENGOTO790
630 POKEA-1,32:D=1:RETURN
640 A=A+40:IFPEEK(A)<>32ORD=4THENGOTO790
650 POKEA-40,32:D=2:RETURN
660 A=A-1:IFPEEK(A)<>32ORD=1THENGOTO790
670 POKEA+1,32:D=3:RETURN
680 A=A-40:IFPEEK(A)<>32ORD=2THENGOTO790
690 POKEA+40,32:D=4:RETURN
700 POKEA,35
710 IFPEEK(56320)=119THENB=119
720 IFPEEK(56320)=125THENB=125
730 IFPEEK(56320)=123THENB=123
740 IFPEEK(56320)=126THENB=126
750 P=P+5
760 C=INT(RND(TI)*700)+INT(RND(TI)*300):IFC=ATHENGOTO760
770 POKE1024+C,160
780 GOTO560
790 POKE53281,11:FORN=1TO25:NEXT
800 POKE53281,12:FORN=1TO25:NEXT
810 POKE53281,15:FORN=1TO25:NEXT
820 POKE53281,1:FORN=1TO25:NEXT:PRINT"[147]"
830 POKE53281,15:POKE53280,11:FORN=1TO25:NEXT
840 POKE53281,12:POKE53280,12:FORN=1TO25:NEXT
850 POKE53281,11:POKE53280,15:FORN=1TO25:NEXT
860 POKE53281,0:POKE53280,1:FORN=1TO25:NEXT
870 POKE53280,15:FORN=1TO25:NEXT
880 POKE53280,12:FORN=1TO25:NEXT
890 POKE53280,11:FORN=1TO25:NEXT
900 POKE53280,0:FORN=1TO25:NEXT
910 PRINT"[147] [199]AME [207]VER !
920 [153]"RIGHT$HRE (null)UNKTZAHL :"P
940 [153]"(null)AL SEHEN, OB DAS EIN (null)LATZ IN DIE"
950 [153]"LEFT$IGH-(null)CORE BRINGT...":[158]828,0
960 [159]1,8,2,"3-HIGH"
970 [129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
980 [139]P[179]B(9)[167][137]1080
990 [153]"MID$A, STR$U BIST IN DER LEFT$IGHSCORE, MOMENT..."
995 [159]1,8,2,"NAME":[132]1,N$:[160]1
1000 [129]N[178]9[164]1[169][171]1
1010 [139]P[177]B(N)[167]B(N[170]1)[178]B(N):B$(N[170]1)[178]B$(N):B$(N)[178]N$:B(N)[178]P
1020 [130]
1030 [153]"LOADCLR   (null)TUFE 3 ... LEFT$IGH-(null)CORE"
1040 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
1050 [159]1,8,15,"S:3-HIGH":[160]1
1060 [159]1,8,2,"3-HIGH,S,W"
1070 [129]N[178]1[164]9:[152]1,B$(N):[152]1,B(N):[130]
1080 [160]1:[137]60
1090 [153]"LIST(null)EIN, LEIDER NICHT. (null)UTTU NOCH UEBEN !"
1100 [129]N[178]1[164]2000:[130]:[137]60
1110 [158]828,0:[153]"LOADCLR   (null)TUFE 3 ... LEFT$IGH-(null)CORESYS"
1120 [159]1,8,2,"3-HIGH":[129]N[178]1[164]9:[132]1,B$(N):[132]1,B(N):[130]:[160]1
1130 [129]N[178]1[164]9:[153]B$(N);[163]23);B(N):[130]
1140 [153]" (null)ETURN WAIT":[158]828,1
1150 [161]A$:[139]A$[179][177][199](13)[167][137]1150
1160 [137]60
3000 [159]1,8,2,"DATA":[143]"GOSUBON3000 POKE54781,12+C:FORN=1TO1024TO2023:NEXT
3010 INPUT#1,A$:REM"[141][145]3010 POKEN,N-1:NEXTN:A=PEEK(56320)
3020 [139]A$[179][177]"GUT"[167][158]64738:[143]"GOSUBON3020 IFD<>0ORPEEK(56320)=127THEND=C
3030 CLOSE1:RETURN:REM"[141][145]3030 IFPEEK(56392)=124THENGOTO3000
3040 [142]
4000 [158]828,0:[153]"LOAD":[159]1,8,2,"NAME,S,A":[152]1,"LOSE":[160]1:[142]